
load('summary_data/figA5.rda')

pl = ggplot(out, aes(nat_quant, log_per_cap, shape = cycle, color = class)) +
  geom_point() +
  theme_light() +
  labs(
    x = element_blank(),
    y = 'Logged Avg. Per-Unit Share\nof Housing Wealth in Bin',
    shape = 'Year',
    color = 'Source'
  )

ggsave(filename = 'figures/figA5.pdf', plot = pl, width = 5.5, height = 3, units = 'in')
